(** Module GenText
 *
 *  Author: Jk
 *)

include GenDummy
(*open Misc
open Types

let generate rule= 
	let rec gen_body rule = 
      match rule.tree with
      AltBlock l -> String.concat " | " (List.map gen_body l)
     |SeqBlock (s,_) -> String.concat " " (List.map (fun x -> gen_body x) s)
     | TokenRef n -> n
     | RuleRef (r,p) -> r
     | RawString s -> Printf.sprintf "\"%s\""  (String.escaped s)
     | Iterated (r,q) -> Printf.sprintf "(%s)%c" (gen_body r)  ((function MOpt->'?'|MSome->'+'|MAny->'*') q)
     | Predicate _ -> "=> ... =>"
 in Printf.sprintf "%s:%s" rule.name (gen_body rule.body)

let generate_grammar g = print_endline (String.concat ";\n" (List.map generate g.rules))
let generator conf = generate_grammar
*)